Especial Multimedia/Especial Multimedia.iso/Multimed/Musica/ZMUD32.ZIP/ZMUD.EXE/0/RCDATA/TEDITCOM/TEDITCOM.txt

Text File | 1997-06-09 | 22KB | 709 lines

object EditCom: TEditCom
  Left = 137
  Top = 125
  Width = 663
  Height = 445
  Caption = 'zMUD Editor'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 655
    Height = 27
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object BoldButton: TSpeedButton
      Left = 200
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Bold|'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333338888888888333330000000000
        3333333338883338883333330003330003333333388833338883333300033330
        0033333338883333888333330003333000333333388833338883333300033330
        0033333338883338883333330003330003333333388888888333333300000000
        3333333338883338883333330003330003333333388833338883333300033330
        0033333338883333888333330003333000333333388833388833333300033300
        0333333888888888833333000000000033333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = BoldButtonClick
    end
    object ColorButton: TSpeedButton
      Left = 226
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Color|Change color of text'
      NumGlyphs = 2
      OnClick = ColorButtonClick
    end
    object SendButton: TSpeedButton
      Left = 119
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Send|Send all text to MUD'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SendandClose1Click
    end
    object OpenButton: TSpeedButton
      Left = 32
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Open|Open a new text file'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555500000000000555550000000000
        05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
        B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
        B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
        B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
        0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
        5555550000055555555555000005555555555555555555555555555555555555
        5555555555555555555555555555555555555555555555555555000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = Open1Click
    end
    object SaveButton: TSpeedButton
      Left = 58
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Save|Save this text to a file'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000888888
        800333FFFFFFFFFFFFF33000008777777000388888888888883F300000870077
        70008F3338F3FF38F38F30000087007770008F3338F88F38F38F300000877777
        70008F3338F88FF8F38F30000000000000008F3338888888338F300000000000
        00008F3FFFFFFFFFFF8F3000FFFFFFFFF0008F88888888888F8F3000FFFFFFFF
        F0008F8F333333338F8F3000FFFFFFFFF0008F8F333333338F8F3000FFFFFFFF
        F0008F8F333333338F8F3000FFFFFFFFF0008F8F333333338F8F3000FFFFFFFF
        F0808F8F333333338F8F3000FFFFFFFFF0008F8F33333333888F330099999999
        9003838FFFFFFFFF8F8333333333333333333888888888888833000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = Save1Click
    end
    object CaptButton: TSpeedButton
      Left = 89
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Capture|Capture a lines from the MUD output window'
      NumGlyphs = 2
      OnClick = Capture1Click
    end
    object Toggle: TSpeedButton
      Left = 257
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Toggle Capture|Toggle whether lines are captured from MUD'
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      OnClick = ToggleClick
    end
    object Parse: TSpeedButton
      Left = 282
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Parse Commands|Toggle whether text sent to MUD is parsed'
      AllowAllUp = True
      GroupIndex = 3
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        003337777777777777F330FFFFFFFFFFF033373F3F3F3F3F3733330F0F0F0F0F
        03333F7F737373737FFF0000FFFFFFF0000377773FFFFFF7777F0FF800000008
        FF037F3F77777773FF7F0F9FFFFFFFF000037F7333333337777F0FFFFFFFFFFF
        FF0373FFFFFFFFFFFF7330000000000000333777777777777733333000000000
        3333333777777777F3333330FFFFFFF033333337F3FFFFF7F3333330F00000F0
        33333337F77777F7F3333330F0AAE0F033333337F7F337F7F3333330F0DAD0F0
        33333337F7FFF7F7F3333330F00000F033333337F7777737F3333330FFFFFFF0
        33333337FFFFFFF7F333333000000000333333377777777733330000}
      NumGlyphs = 2
      OnClick = ParseClick
    end
    object PrefixBtn: TSpeedButton
      Left = 370
      Top = 5
      Width = 16
      Height = 16
      Hint =
        'Prefix Toggle|Toggle whether prefix string is prepended to text ' +
        'sent to MUD'
      AllowAllUp = True
      GroupIndex = 6
      OnClick = PrefixBtnClick
    end
    object SendSelectBtn: TSpeedButton
      Left = 145
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Send Selected Text|Send Selected text to MUD'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333338FF3333333333333903333333333333388FF33333333333399
        03333FFFFFFFFF888FF3000000999999903388888888888888FF0FFFF0999999
        99038F3338888888888F0FFFF099999999908F3FF888888888880C77C0999999
        99038F883888888888830CCCC099999990338F3FF888888888330C77CCCCC099
        03338F883333388883330CCCCCCCC09033338F3FF3FFF88833330C77C0000003
        33338F883888888333330FFFF0FF033333338F3FF8F3833333330F07F0F03333
        33338F8838F8333333330FFFF003333333338FFFF88333333333000000333333
        3333888888333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = SendSelectBtnClick
    end
    object SendLineBtn: TSpeedButton
      Left = 170
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Send Line|Send current line to MUD'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333338FF3333333333333903333333333333388FF33333333333399
        03333FFFFFFFFF888FF3000000999999903388888888888888FF0FFFF0999999
        99038F3338888888888F0FFFF099999999908F3FF888888888880F00F0999999
        99038F883888888888830FFFF099999990338F3FF888888888330CCCCCCCC099
        03338F883333388883330FFFFFFFF09033338F3FF3FFF88833330F00F0000003
        33338F883888888333330FFFF0FF033333338F3FF8F3833333330F07F0F03333
        33338F8838F8333333330FFFF003333333338FFFF88333333333000000333333
        3333888888333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = SendLineBtnClick
    end
    object TopBtn: TSpeedButton
      Left = 1
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Keep on top|Forces this dialog to display on top of others'
      AllowAllUp = True
      GroupIndex = 1
      NumGlyphs = 2
      OnClick = TopBtnClick
    end
    object SyntaxBtn: TSpeedButton
      Left = 334
      Top = 1
      Width = 26
      Height = 25
      Hint =
        'Use Color Syntax|Toggle whether ANSI codes are converted to colo' +
        'r syntax'
      AllowAllUp = True
      GroupIndex = 5
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333330333330003300033333333333333333303333033330
        3303333333333333333330333300003033033333333333333333300303033030
        3303333333333333333330303330033300033333333333333333333333333333
        3303333333333333333333333333333333033333333333333333300000003333
        3333333333333333333330999990333003333333333333333333309999903330
        0033333333333333333330999990300000033333333333333333309999903330
        0033333333333333333330999990333003333333333333333333300000003333
        3333333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = SyntaxBtnClick
    end
    object DoColorBtn: TSpeedButton
      Left = 308
      Top = 1
      Width = 26
      Height = 25
      Hint = 'Enable color|Toggle whether text sent to MUD is colored'
      AllowAllUp = True
      GroupIndex = 4
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333000000000000033300000000000003330DDD06660F
        FF033307770777077703330DD006660FFF033307770777077703330D0990660F
        FF0333077707770777033300999900000003330000000000000333099009900E
        EE03330777077707770333000B00990EEE033307770777077703330BBB070990
        EE033307770777077703330000000099000333000000000000033309990AAA09
        900333077707770777033309990AAA00990333077707770777033309990AAA0C
        0003330777077707770333000000000000033300000000000003333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = DoColorBtnClick
    end
    object PrefixList: TComboBox
      Left = 392
      Top = 3
      Width = 145
      Height = 21
      Hint = 'Prefix String|String to prepend to text sent to MUD'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnChange = PrefixListChange
      OnEnter = PrefixListEnter
      OnExit = PrefixListExit
    end
  end
  object UserIn: TTerm
    Left = 0
    Top = 27
    Width = 637
    Height = 354
    Cursor = crIBeam
    VScroll = VScroll
    HScroll = HScroll
    DefColor = 0
    WrapIndent = 5
    ReadOnly = False
    OnStatus = UserInStatus
    Margin = 8
    AllowSplit = False
    SplitPos = 0
    CursorOn = True
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier'
    Font.Style = []
    TabOrder = 1
    Color = clBlack
    ParentColor = False
    ParentFont = False
    TabStop = True
    Align = alClient
    OnMouseDown = UserInMouseDown
  end
  object Panel5: TPanel
    Left = 0
    Top = 381
    Width = 655
    Height = 18
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Panel3: TPanel
      Left = 638
      Top = 0
      Width = 17
      Height = 18
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
    end
    object Panel7: TPanel
      Left = 0
      Top = 0
      Width = 638
      Height = 18
      Align = alClient
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 1
      object Panel2: TPanel
        Left = 446
        Top = 1
        Width = 191
        Height = 16
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object HScroll: TScrollBar
          Left = 0
          Top = 0
          Width = 185
          Height = 16
          LargeChange = 39
          Max = 0
          TabOrder = 0
          TabStop = False
        end
      end
      object HelpPanel: TPanel
        Left = 1
        Top = 1
        Width = 439
        Height = 16
        Align = alLeft
        Alignment = taLeftJustify
        BevelOuter = bvNone
        TabOrder = 1
        object XYPanel: TPanel
          Left = 343
          Top = 0
          Width = 56
          Height = 16
          Hint = 'Current cursor column and row|'
          Align = alRight
          BevelOuter = bvLowered
          TabOrder = 0
        end
        object InsPanel: TPanel
          Left = 399
          Top = 0
          Width = 40
          Height = 16
          Hint = 'Insert/Overwrite mode|'
          Align = alRight
          BevelOuter = bvLowered
          TabOrder = 1
        end
      end
      object GrabBar1: TGrabBar
        Left = 440
        Top = 0
        Width = 6
        Height = 17
        Cursor = crHSplit
        DragUpdate = True
        Style = gbVertical
        Thickness = 6
        WindowA = HelpPanel
        WindowB = Panel2
      end
    end
  end
  object Panel4: TPanel
    Left = 637
    Top = 27
    Width = 18
    Height = 354
    Align = alRight
    BevelOuter = bvLowered
    TabOrder = 3
    object VScroll: TScrollBar
      Left = 1
      Top = 0
      Width = 16
      Height = 353
      Kind = sbVertical
      LargeChange = 27
      Max = 0
      TabOrder = 0
      TabStop = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 232
    Top = 48
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Open1: TMenuItem
        Caption = '&Open...'
        ShortCut = 0
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = 'Sa&ve'
        ShortCut = 0
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object Import1: TMenuItem
        Caption = '&Import...'
        ShortCut = 0
        OnClick = Import1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Capture1: TMenuItem
        Caption = '&Capture'
        ShortCut = 0
        OnClick = Capture1Click
      end
      object SendandClose1: TMenuItem
        Caption = '&Send'
        ShortCut = 0
        OnClick = SendandClose1Click
      end
      object SendSelected1: TMenuItem
        Caption = 'Send Selected'
        ShortCut = 16468
        OnClick = SendSelectBtnClick
      end
      object SendLine1: TMenuItem
        Caption = 'Send &Line'
        ShortCut = 16467
        OnClick = SendLineBtnClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object PrinterSetup1: TMenuItem
        Caption = 'Printer Setup...'
        ShortCut = 0
        OnClick = PrinterSetup1Click
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 0
        object Buffer1: TMenuItem
          Caption = '&Buffer'
          ShortCut = 0
          OnClick = Buffer1Click
        end
        object Selected1: TMenuItem
          Caption = '&Selected'
          ShortCut = 0
          OnClick = Selected1Click
        end
        object Screen1: TMenuItem
          Caption = 'Scree&n'
          ShortCut = 0
          OnClick = Screen1Click
        end
        object N8: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object Color2: TMenuItem
          Caption = 'Color'
          ShortCut = 0
          OnClick = Color2Click
        end
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'Clos&e'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        ShortCut = 16449
        OnClick = SelectAll1Click
      end
      object Clear1: TMenuItem
        Caption = 'C&lear Selection'
        ShortCut = 0
        OnClick = Clear1Click
      end
      object ClearAll1: TMenuItem
        Caption = 'Clear All'
        ShortCut = 16430
        OnClick = ClearAll1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Gotoline1: TMenuItem
        Caption = '&Goto line...'
        ShortCut = 0
        OnClick = Gotoline1Click
      end
      object Find1: TMenuItem
        Caption = '&Find...'
        ShortCut = 16454
        OnClick = Find1Click
      end
    end
    object Text1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      OnClick = Text1Click
      object Color1: TMenuItem
        Caption = '&Color...'
        ShortCut = 0
        OnClick = Color1Click
      end
      object Bold1: TMenuItem
        Caption = '&Bold'
        ShortCut = 0
        OnClick = Bold1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Capture2: TMenuItem
        Caption = '&Capture'
        ShortCut = 0
        OnClick = ToggleClick
      end
      object Prefix1: TMenuItem
        Caption = 'Pre&fix'
        ShortCut = 16464
        OnClick = PrefixBtnClick
      end
      object Parse1: TMenuItem
        Caption = '&Parse'
        ShortCut = 0
        OnClick = ParseClick
      end
      object ANSIColor1: TMenuItem
        Caption = 'ANSI Color'
        ShortCut = 0
        OnClick = DoColorBtnClick
      end
      object ColorSyntax1: TMenuItem
        Caption = 'Color Syntax'
        ShortCut = 0
        OnClick = SyntaxBtnClick
      end
      object SendFullLines1: TMenuItem
        Caption = 'Send Full Lines'
        ShortCut = 0
        OnClick = SendFullLines1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Options1: TMenuItem
        Caption = '&Preferences...'
        ShortCut = 0
        OnClick = Options1Click
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      ShortCut = 0
      object Refresh1: TMenuItem
        Caption = '&Refresh'
        ShortCut = 0
        OnClick = Refresh1Click
      end
    end
  end
  object OpenFile: TOpenDialog
    DefaultExt = 'TXT'
    FileEditStyle = fsEdit
    Filter = 'Text Files|*.txt|All Files|*.*'
    Options = [ofFileMustExist]
    Left = 264
    Top = 48
  end
  object SaveFile: TSaveDialog
    DefaultExt = 'TXT'
    FileEditStyle = fsEdit
    Filter = 'Text Files|*.txt|All Files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 296
    Top = 48
  end
  object FindDlg: TFindDialog
    Options = [frDown, frHideMatchCase, frHideWholeWord]
    OnFind = FindDlgFind
    Left = 328
    Top = 48
  end
end